home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 December / 64er_Magazin_90-12_1990_Markt__Technik_de_Side_A.d64 / sound fx-maker (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  20 lines
  1. 10 fori=837to995:read t:pokei,t:nexti:x=1:printchr$(14):poke53280,0:poke53281,0
  2. 11 print"[147]     [198]uer das"x"te [196]emo bitte eine":printtab(13)"[212]aste druecken"
  3. 12 geta$:ifa$=""then12
  4. 13 fori=1to9:reada(i):next
  5. 14 n=828:fori=1to9:poken,a(i):n=n+1:next:print"[147]  [206]och einmal hoeren ?":sys837
  6. 16 getb$:ifb$="j"then14
  7. 17 ifb$="n"thenx=x+1:ifx<9then11:end
  8. 18 goto16
  9. 70 data 169,15,141,24,212,169,0,141,6,212,141,18,212,141,4,212,173,62,3,141,5
  10. 71 data 212,173,61,3,141,4,212,173,68,3,141,15,212,173,63,3,141,238,7,173,67
  11. 72 data 3,141,5,220,120,169,128,141,20,3,169,3,141,21,3,88,96,173,60,3,201,0
  12. 73 data 208,3,76,148,3,201,1,208,3,76,200,3,76,49,234,173,63,3,24,109,65,3,141
  13. 74 data 63,3,141,1,212,205,64,3,144,31,173,238,7,141,63,3,206,66,3,173,66,3,201
  14. 75 data 0,208,15,169,0,141,4,212,169,10,141,60,3,169,50,141,5,220,76,49,234
  15. 76 data173,63,3,56,237,65,3,141,63,3,141,1,212,205,64,3,176,235,173,238,7,141
  16. 77 data63,3,76,172,3,0
  17. 80 data1,23,13,70,10,2,20,46,7,0,21,12,50,200,5,12,36,90,0,21,11,120,150,1,15
  18. 81 data15,160,0,23,154,50,80,1,5,50,14,0,23,12,10,210,1,1,50,14,0,21,12,16,54
  19. 82 data1,10,40,44,1,21,12,40,1,2,20,40,6,1,33,12,40,20,1,20,40,6
  20.